include 'funcs.f95'
include 'kd4.f95'

program main
    use funcs
    use LK
    implicit none
    real,parameter :: fs(6)=(/0.019,0.051,0.082,0.113,0.144,0.175/)
    integer :: i,j,fn
    real,external :: f1,f2
    do fn=1,6
        call init(fs(fn))
        do i=1:N
    end do
end program

real function f1(y1,y2)
    use funcs
    implicit none
    real :: y1,y2
    f1=
end function
